﻿Public Class Parametros
    Dim sqlCEcn As New SqlClient.SqlConnection

    Private RutaRpt As String
    Function Parametro(ByVal param As String) As String
        Dim resul As String = ""
        Try
            sqlCEcn.ConnectionString = LeerINI(My.Application.Info.DirectoryPath & "\config.ini")
            Dim da As New SqlClient.SqlDataAdapter("select * from ConfiSist where co_config='" & param & "'", sqlCEcn)
            Dim ds As New DataSet
            da.Fill(ds)
            If ds.Tables(0).Rows.Count = 0 Then
                resul = ""
            Else
                resul = ds.Tables(0).Rows(0).Item(1)
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        Return resul
    End Function
    Public ReadOnly Property RutaReportes() As String
        Get
            Return RutaRpt
        End Get
    End Property
    Private Sub TraeRutaReportes()
        Try
            sqlCEcn.ConnectionString = LeerINI(My.Application.Info.DirectoryPath & "\config.ini")
            Dim da As New SqlClient.SqlDataAdapter("select no_config from ConfiSist where co_config='ruta_reporte'", sqlCEcn)
            Dim ds As New DataSet
            da.Fill(ds)
            If ds.Tables(0).Rows.Count = 0 Then
                RutaRpt = ""
            Else
                RutaRpt = ds.Tables(0).Rows(0).Item(0)
            End If
            da.Dispose()
            ds.Dispose()
            'resul = "Server=ORFEMG\ROLFA;Database=BdPlanilla;uid=sa;pwd=pecoluca;Connect Timeout=10000"
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Public Sub New()
        TraeRutaReportes()
    End Sub
    Function LeerINI(ByVal strRutaArchivo As String) As String
        Dim cadena As String = ""
        Try
            ' Lista donde almacenaremos nuestras líneas.
            Dim lineas As New List(Of String)
            ' Creo una instancia de StreamReader para leer el archivo 
            ' donde tenemos nuestras líneas.
            Using sr As IO.StreamReader = New IO.StreamReader(strRutaArchivo)
                Dim linea As String = ""
                ' Leo las línes
                Do
                    linea = sr.ReadLine()
                    lineas.Add(linea)
                Loop Until linea Is Nothing
                'quito el ultimo que me cogió una que no existe.
                lineas.RemoveAt(lineas.Count - 1)
                sr.Close() ' Cerramos el stream.
            End Using
            'Ahora obtenemos los campos de cada línea.
            ' Yo lo muestro por pantalla, pero los puedes meter en variables 
            ' o guardarlos.
            For i As Integer = 0 To lineas.Count - 1
                cadena = lineas(i)
                'Console.WriteLine(lineas(i).Substring(0, 9)) 'Proveedor base de datos
                'Console.WriteLine(lineas(i).Substring(11, 9)) 'usuario y password
                'Console.WriteLine(lineas(i).Substring(21, 9)) ' base de datos
                'Console.WriteLine(lineas(i).Substring(31, 9)) 'nombre del servidor
            Next
        Catch E As Exception
            ' Mensaje de error.
            MsgBox(E.Message, MsgBoxStyle.Critical)
        End Try
        Console.ReadLine()
        Return cadena
    End Function

End Class
